home *** CD-ROM | disk | FTP | other *** search
/ Iona Software Demo / MacWin_IonaSoftware_DemoCD.iso / pc / demo.exe / demo.DXR / 00009_go Ed movie.ls < prev    next >
Encoding:
Text File  |  1996-02-23  |  671 b   |  27 lines
  1. on mouseDown
  2.   global edMovie, edmus, reallyQuit
  3.   set HitSprite to the clickOn
  4.   set wait to 2000
  5.   puppetSprite(HitSprite, 1)
  6.   repeat with i = 1 to 6
  7.     repeat with c = 1 to wait
  8.     end repeat
  9.     set the castNum of sprite HitSprite to the number of cast ("edmark " & i)
  10.     updateStage()
  11.   end repeat
  12.   repeat with i = 6 down to 1
  13.     repeat with c = 1 to wait
  14.     end repeat
  15.     set the castNum of sprite HitSprite to the number of cast ("edmark " & i)
  16.     updateStage()
  17.   end repeat
  18.   puppetSprite(HitSprite, 0)
  19.   set reallyQuit to 0
  20.   unLoadCast()
  21.   set the timeoutScript to EMPTY
  22.   sound stop 1
  23.   sound stop 2
  24.   sound playFile 1, edmus
  25.   play movie edMovie
  26. end
  27.